﻿Partial Public Class HeatConnectionDialog

    Private Sub HeatProviderBox_Loaded(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles Me.Loaded
        Me.DataContext = My.Settings
    End Sub

    Private Sub ux_OKButton_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs)
        My.Settings.HeatDataSource = ux_HeatDataSourceTextbox.Text
        My.Settings.HeatCatalog = ux_HeatCatalogTextbox.Text
        Me.Close()
    End Sub

End Class
